#tag Window
Begin Window Window1
   BackColor       =   65280
   Backdrop        =   ""
   BalloonHelp     =   ""
   CloseButton     =   True
   Composite       =   False
   Frame           =   0
   FullScreen      =   False
   HasBackColor    =   True
   Height          =   300
   ImplicitInstance=   True
   LiveResize      =   False
   MacProcID       =   0
   MaxHeight       =   32000
   MaximizeButton  =   False
   MaxWidth        =   32000
   MenuBar         =   1509396479
   MenuBarVisible  =   True
   MinHeight       =   64
   MinimizeButton  =   True
   MinWidth        =   64
   Placement       =   0
   Resizeable      =   False
   Title           =   "Untitled"
   Visible         =   True
   Width           =   300
   Begin sjgButton sjgButton1
      AcceptFocus     =   ""
      AcceptTabs      =   ""
      AutoDeactivate  =   True
      Backdrop        =   ""
      ControlOrder    =   0
      Enabled         =   True
      EraseBackground =   True
      Height          =   35
      HelpTag         =   ""
      Index           =   -2147483648
      InitialParent   =   ""
      Left            =   30
      LockBottom      =   ""
      LockLeft        =   ""
      LockRight       =   ""
      LockTop         =   ""
      Picture         =   0
      Scope           =   0
      TabPanelIndex   =   0
      toggles         =   0
      Top             =   14
      UseFocusRing    =   True
      value           =   0
      Visible         =   True
      Width           =   35
      BehaviorIndex   =   0
   End
End
#tag EndWindow

#tag WindowCode
	#tag Event
		Sub Open()
		  dim g as Graphics
		  dim p As new Picture(sjgButton1.Graphics.Width-2,sjgButton1.Graphics.Height-2,32)
		  p.Transparent = 1
		  g = p.Graphics
		  g.DrawCautionIcon 0,0
		  sjgButton1.Picture = p
		  
		End Sub
	#tag EndEvent


#tag EndWindowCode

#tag Events sjgButton1
	#tag Event
		Sub Action()
		  if self.BackColor = &c00ff00 then
		    self.BackColor = &c0000ff
		  else
		    self.BackColor = &c00ff00
		  end if
		  
		End Sub
	#tag EndEvent
#tag EndEvents
